%Eigen values and vectors of M, sorted by incresing eigen values
function [eVec,eVal]=eigensystem(m)

% Gaston Baudat & Fatiha Anouar / 21st October 2000 / Exton PA 19341 USA
% Designed under MatLab for Windows version 5.2.0.3084

% mSize=length(m);
[mVec,mVal]=eig(m);
dVal=diag(mVal);
%--------
[dVal,Index]=sort(dVal,'descend');
eVal=diag(dVal);
eVec=mVec(:,Index);